'--------------------------------------------------------------------------------------
'Copyright: (c) 2010 Bentley Systems, Incorporated.
'--------------------------------------------------------------------------------------
'
'  This file is part of structural-gc.
'
'  structural-gc is free software: you can redistribute it and/or modify
'  it under the terms of the GNU General Public License as published by
'  the Free Software Foundation, either version 2 of the License, or
'  (at your option) any later version.
'
'  structural-gc is distributed in the hope that it will be useful,
'  but WITHOUT ANY WARRANTY; without even the implied warranty of
'  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'  GNU General Public License for more details.
'
'  You should have received a copy of the GNU General Public License
'  along with structural-gc.  If not, see <http://www.gnu.org/licenses/>
'--------------------------------------------------------------------------------------

Imports Bentley.GenerativeComponents.GeneralPurpose
Imports Bentley.Interop.TFCom
Imports Bentley.Interop.STFCom
Imports System.Windows.Forms

Namespace Forms

    Public Class PlaceStructuralForm
        Inherits System.Windows.Forms.Form

        Declare Auto Function tfsecmgr_openSectionPicker Lib "triforma.dll" Alias "?tfsecmgr_openSectionPicker@@YGHPAD@Z" _
            (ByVal sectionName As Byte()) As Integer


#Region " Windows Form Designer generated code "

            Public Sub New()
                MyBase.New()

                'This call is required by the Windows Form Designer.
                InitializeComponent()

                'Add any initialization after the InitializeComponent() call

            End Sub

            'Form overrides dispose to clean up the component list.
            Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
                If disposing Then
                    If Not (components Is Nothing) Then
                        components.Dispose()
                    End If
                End If
                MyBase.Dispose(disposing)
            End Sub

            'Required by the Windows Form Designer
            Private components As System.ComponentModel.IContainer

            'NOTE: The following procedure is required by the Windows Form Designer
            'It can be modified using the Windows Form Designer.
            'Do not modify it using the code editor.
            Friend WithEvents Ok_button As System.Windows.Forms.Button
            Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
            Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
            Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
            Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
            Friend WithEvents Button1 As System.Windows.Forms.Button
        Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
            Friend WithEvents Label1 As System.Windows.Forms.Label
            Friend WithEvents Label2 As System.Windows.Forms.Label
            Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
            Friend WithEvents Label3 As System.Windows.Forms.Label
            Friend WithEvents Label4 As System.Windows.Forms.Label
        Friend WithEvents Label5 As System.Windows.Forms.Label
            Friend WithEvents Label6 As System.Windows.Forms.Label
            Friend WithEvents Label7 As System.Windows.Forms.Label
            Friend WithEvents Label8 As System.Windows.Forms.Label
            Friend WithEvents Label9 As System.Windows.Forms.Label
            Friend WithEvents Label10 As System.Windows.Forms.Label
            Friend WithEvents Label11 As System.Windows.Forms.Label
            Friend WithEvents Label12 As System.Windows.Forms.Label
            Friend WithEvents Label13 As System.Windows.Forms.Label
            Friend WithEvents Label14 As System.Windows.Forms.Label
        Friend WithEvents Label15 As System.Windows.Forms.Label
            Friend WithEvents Label16 As System.Windows.Forms.Label
            Friend WithEvents Label17 As System.Windows.Forms.Label
            Friend WithEvents Label18 As System.Windows.Forms.Label
            Friend WithEvents Label19 As System.Windows.Forms.Label
        Friend WithEvents m_familyName As System.Windows.Forms.TextBox
        Friend WithEvents m_partName As System.Windows.Forms.TextBox
        Friend WithEvents m_placementPoint As System.Windows.Forms.TextBox
        Friend WithEvents m_sectionName As System.Windows.Forms.TextBox
        Friend WithEvents m_rotation As System.Windows.Forms.TextBox
        Friend WithEvents m_user1 As System.Windows.Forms.TextBox
        Friend WithEvents m_status As System.Windows.Forms.TextBox
        Friend WithEvents m_class As System.Windows.Forms.TextBox
        Friend WithEvents m_material As System.Windows.Forms.TextBox
        Friend WithEvents m_grade As System.Windows.Forms.TextBox
        Friend WithEvents m_mark As System.Windows.Forms.TextBox
        Friend WithEvents m_type As System.Windows.Forms.TextBox
        Friend WithEvents m_user2 As System.Windows.Forms.TextBox
        Friend WithEvents m_end2detail As System.Windows.Forms.TextBox
        Friend WithEvents m_end2action As System.Windows.Forms.TextBox
        Friend WithEvents m_end1detail As System.Windows.Forms.TextBox
        Friend WithEvents m_user4 As System.Windows.Forms.TextBox
        Friend WithEvents m_end1action As System.Windows.Forms.TextBox
        Friend WithEvents m_user3 As System.Windows.Forms.TextBox
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Ok_button = New System.Windows.Forms.Button
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.m_placementPoint = New System.Windows.Forms.TextBox
Me.Button2 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.m_sectionName = New System.Windows.Forms.TextBox
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.ComboBox2 = New System.Windows.Forms.ComboBox
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.m_rotation = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.m_familyName = New System.Windows.Forms.TextBox
Me.m_partName = New System.Windows.Forms.TextBox
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.Label13 = New System.Windows.Forms.Label
Me.Label14 = New System.Windows.Forms.Label
Me.m_user1 = New System.Windows.Forms.TextBox
Me.m_status = New System.Windows.Forms.TextBox
Me.m_class = New System.Windows.Forms.TextBox
Me.m_material = New System.Windows.Forms.TextBox
Me.m_grade = New System.Windows.Forms.TextBox
Me.m_mark = New System.Windows.Forms.TextBox
Me.m_type = New System.Windows.Forms.TextBox
Me.Label15 = New System.Windows.Forms.Label
Me.Label16 = New System.Windows.Forms.Label
Me.Label17 = New System.Windows.Forms.Label
Me.Label18 = New System.Windows.Forms.Label
Me.Label19 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.m_end2detail = New System.Windows.Forms.TextBox
Me.m_end2action = New System.Windows.Forms.TextBox
Me.m_end1detail = New System.Windows.Forms.TextBox
Me.m_user4 = New System.Windows.Forms.TextBox
Me.m_end1action = New System.Windows.Forms.TextBox
Me.m_user2 = New System.Windows.Forms.TextBox
Me.m_user3 = New System.Windows.Forms.TextBox
Me.Label7 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Ok_button
'
Me.Ok_button.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Ok_button.Location = New System.Drawing.Point(125, 203)
Me.Ok_button.Name = "Ok_button"
Me.Ok_button.Size = New System.Drawing.Size(80, 32)
Me.Ok_button.TabIndex = 0
Me.Ok_button.Text = "OK"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(5, 5)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(385, 192)
Me.TabControl1.TabIndex = 5
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.m_placementPoint)
Me.TabPage1.Controls.Add(Me.Button2)
Me.TabPage1.Controls.Add(Me.Button1)
Me.TabPage1.Controls.Add(Me.m_sectionName)
Me.TabPage1.Controls.Add(Me.ComboBox1)
Me.TabPage1.Controls.Add(Me.Label1)
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Controls.Add(Me.ComboBox2)
Me.TabPage1.Controls.Add(Me.Label3)
Me.TabPage1.Controls.Add(Me.Label4)
Me.TabPage1.Controls.Add(Me.m_rotation)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.m_familyName)
Me.TabPage1.Controls.Add(Me.m_partName)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(377, 166)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "General"
'
'm_placementPoint
'
Me.m_placementPoint.Location = New System.Drawing.Point(225, 103)
Me.m_placementPoint.Name = "m_placementPoint"
Me.m_placementPoint.Size = New System.Drawing.Size(25, 20)
Me.m_placementPoint.TabIndex = 16
Me.m_placementPoint.Text = "8"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(265, 104)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(60, 22)
Me.Button2.TabIndex = 15
Me.Button2.Text = "Select"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(265, 75)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(60, 22)
Me.Button1.TabIndex = 14
Me.Button1.Text = "Select"
'
'm_sectionName
'
Me.m_sectionName.Location = New System.Drawing.Point(73, 77)
Me.m_sectionName.Name = "m_sectionName"
Me.m_sectionName.Size = New System.Drawing.Size(177, 20)
Me.m_sectionName.TabIndex = 13
Me.m_sectionName.Text = "W18x35"
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(276, 22)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(71, 21)
Me.ComboBox1.TabIndex = 10
Me.ComboBox1.Text = "Steel"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(15, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(52, 16)
Me.Label1.TabIndex = 9
Me.Label1.Text = "Family:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(15, 44)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(40, 16)
Me.Label2.TabIndex = 6
Me.Label2.Text = "Part:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ComboBox2
'
Me.ComboBox2.Location = New System.Drawing.Point(275, 44)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(72, 21)
Me.ComboBox2.TabIndex = 11
Me.ComboBox2.Text = "Beams"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(15, 77)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(45, 16)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Section:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(15, 104)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(52, 16)
Me.Label4.TabIndex = 8
Me.Label4.Text = "Rotation:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'm_rotation
'
Me.m_rotation.Location = New System.Drawing.Point(73, 103)
Me.m_rotation.Name = "m_rotation"
Me.m_rotation.Size = New System.Drawing.Size(50, 20)
Me.m_rotation.TabIndex = 12
Me.m_rotation.Text = "0.0"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(129, 104)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(90, 16)
Me.Label5.TabIndex = 7
Me.Label5.Text = "Placement Point:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'm_familyName
'
Me.m_familyName.Location = New System.Drawing.Point(73, 22)
Me.m_familyName.Name = "m_familyName"
Me.m_familyName.Size = New System.Drawing.Size(177, 20)
Me.m_familyName.TabIndex = 13
'
'm_partName
'
Me.m_partName.Location = New System.Drawing.Point(73, 44)
Me.m_partName.Name = "m_partName"
Me.m_partName.Size = New System.Drawing.Size(177, 20)
Me.m_partName.TabIndex = 13
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Label13)
Me.TabPage2.Controls.Add(Me.Label14)
Me.TabPage2.Controls.Add(Me.m_user1)
Me.TabPage2.Controls.Add(Me.m_status)
Me.TabPage2.Controls.Add(Me.m_class)
Me.TabPage2.Controls.Add(Me.m_material)
Me.TabPage2.Controls.Add(Me.m_grade)
Me.TabPage2.Controls.Add(Me.m_mark)
Me.TabPage2.Controls.Add(Me.m_type)
Me.TabPage2.Controls.Add(Me.Label15)
Me.TabPage2.Controls.Add(Me.Label16)
Me.TabPage2.Controls.Add(Me.Label17)
Me.TabPage2.Controls.Add(Me.Label18)
Me.TabPage2.Controls.Add(Me.Label19)
Me.TabPage2.Controls.Add(Me.Label12)
Me.TabPage2.Controls.Add(Me.Label6)
Me.TabPage2.Controls.Add(Me.m_end2detail)
Me.TabPage2.Controls.Add(Me.m_end2action)
Me.TabPage2.Controls.Add(Me.m_end1detail)
Me.TabPage2.Controls.Add(Me.m_user4)
Me.TabPage2.Controls.Add(Me.m_end1action)
Me.TabPage2.Controls.Add(Me.m_user2)
Me.TabPage2.Controls.Add(Me.m_user3)
Me.TabPage2.Controls.Add(Me.Label7)
Me.TabPage2.Controls.Add(Me.Label8)
Me.TabPage2.Controls.Add(Me.Label9)
Me.TabPage2.Controls.Add(Me.Label10)
Me.TabPage2.Controls.Add(Me.Label11)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(377, 166)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Data"
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(5, 142)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(85, 17)
Me.Label13.TabIndex = 55
Me.Label13.Text = "User1:"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(5, 11)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(85, 16)
Me.Label14.TabIndex = 52
Me.Label14.Text = "Mark:"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'm_user1
'
Me.m_user1.Location = New System.Drawing.Point(95, 141)
Me.m_user1.Name = "m_user1"
Me.m_user1.Size = New System.Drawing.Size(70, 20)
Me.m_user1.TabIndex = 48
'
'm_status
'
Me.m_status.Location = New System.Drawing.Point(95, 97)
Me.m_status.Name = "m_status"
Me.m_status.Size = New System.Drawing.Size(70, 20)
Me.m_status.TabIndex = 47
Me.m_status.Text = "New"
'
'm_class
'
Me.m_class.Location = New System.Drawing.Point(95, 119)
Me.m_class.Name = "m_class"
Me.m_class.Size = New System.Drawing.Size(70, 20)
Me.m_class.TabIndex = 46
Me.m_class.Text = "Primary"
'
'm_material
'
Me.m_material.Location = New System.Drawing.Point(95, 53)
Me.m_material.Name = "m_material"
Me.m_material.Size = New System.Drawing.Size(70, 20)
Me.m_material.TabIndex = 45
Me.m_material.Text = "Steel"
'
'm_grade
'
Me.m_grade.Location = New System.Drawing.Point(95, 75)
Me.m_grade.Name = "m_grade"
Me.m_grade.Size = New System.Drawing.Size(70, 20)
Me.m_grade.TabIndex = 44
Me.m_grade.Text = "A36"
'
'm_mark
'
Me.m_mark.Location = New System.Drawing.Point(95, 10)
Me.m_mark.Name = "m_mark"
Me.m_mark.Size = New System.Drawing.Size(70, 20)
Me.m_mark.TabIndex = 42
Me.m_mark.Text = "B-1"
'
'm_type
'
Me.m_type.Location = New System.Drawing.Point(95, 31)
Me.m_type.Name = "m_type"
Me.m_type.Size = New System.Drawing.Size(70, 20)
Me.m_type.TabIndex = 43
Me.m_type.Text = "Beam"
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(5, 33)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(85, 16)
Me.Label15.TabIndex = 54
Me.Label15.Text = "Type:"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(5, 55)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(85, 16)
Me.Label16.TabIndex = 49
Me.Label16.Text = "Material:"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(5, 77)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(85, 16)
Me.Label17.TabIndex = 50
Me.Label17.Text = "Grade:"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(5, 120)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(85, 17)
Me.Label18.TabIndex = 51
Me.Label18.Text = "Class:"
Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(5, 99)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(85, 16)
Me.Label19.TabIndex = 53
Me.Label19.Text = "Status:"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(145, 142)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(85, 17)
Me.Label12.TabIndex = 41
Me.Label12.Text = "End2 Detail:"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(145, 11)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(85, 16)
Me.Label6.TabIndex = 40
Me.Label6.Text = "User2:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'm_end2detail
'
Me.m_end2detail.Location = New System.Drawing.Point(235, 141)
Me.m_end2detail.Name = "m_end2detail"
Me.m_end2detail.Size = New System.Drawing.Size(70, 20)
Me.m_end2detail.TabIndex = 39
'
'm_end2action
'
Me.m_end2action.Location = New System.Drawing.Point(235, 97)
Me.m_end2action.Name = "m_end2action"
Me.m_end2action.Size = New System.Drawing.Size(70, 20)
Me.m_end2action.TabIndex = 38
'
'm_end1detail
'
Me.m_end1detail.Location = New System.Drawing.Point(235, 119)
Me.m_end1detail.Name = "m_end1detail"
Me.m_end1detail.Size = New System.Drawing.Size(70, 20)
Me.m_end1detail.TabIndex = 37
'
'm_user4
'
Me.m_user4.Location = New System.Drawing.Point(235, 53)
Me.m_user4.Name = "m_user4"
Me.m_user4.Size = New System.Drawing.Size(70, 20)
Me.m_user4.TabIndex = 36
'
'm_end1action
'
Me.m_end1action.Location = New System.Drawing.Point(235, 75)
Me.m_end1action.Name = "m_end1action"
Me.m_end1action.Size = New System.Drawing.Size(70, 20)
Me.m_end1action.TabIndex = 35
'
'm_user2
'
Me.m_user2.Location = New System.Drawing.Point(235, 10)
Me.m_user2.Name = "m_user2"
Me.m_user2.Size = New System.Drawing.Size(70, 20)
Me.m_user2.TabIndex = 33
'
'm_user3
'
Me.m_user3.Location = New System.Drawing.Point(235, 31)
Me.m_user3.Name = "m_user3"
Me.m_user3.Size = New System.Drawing.Size(70, 20)
Me.m_user3.TabIndex = 34
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(145, 33)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(85, 16)
Me.Label7.TabIndex = 40
Me.Label7.Text = "User3:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(145, 55)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(85, 16)
Me.Label8.TabIndex = 40
Me.Label8.Text = "User4:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(145, 77)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(85, 16)
Me.Label9.TabIndex = 40
Me.Label9.Text = "End1 Action:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(145, 120)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(85, 17)
Me.Label10.TabIndex = 40
Me.Label10.Text = "End1 Detail:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(145, 99)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(85, 16)
Me.Label11.TabIndex = 40
Me.Label11.Text = "End2 Action:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'PlaceStructuralForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(402, 253)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Ok_button)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "PlaceStructuralForm"
Me.ShowInTaskbar = False
Me.Text = "PlaceStructuralForm"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.ResumeLayout(False)

End Sub

#End Region

        Friend Property ExpressionText() As String
            Get
                Return """" & m_familyName.Text & ":" & m_partName.Text & ":" & _
                m_sectionName.Text & ":" & m_rotation.Text & ":" & m_placementPoint.Text & ":" & _
                m_mark.Text & ":" & m_type.Text & m_class.Text & ":" & m_status.Text & ":" & _
                m_user1.Text & ":" & m_user2.Text & m_user3.Text & ":" & m_user4.Text & ":" & _
                m_end1action.Text & ":" & m_end1action.Text & ":" & m_end1detail.Text & ":" & _
                ":" & m_end2detail.Text & """"
            End Get
            Set(ByVal Value As String)
                Value = Value.Replace("""", "")
                Dim pos As Integer = Value.IndexOf(":")
                If pos < 0 Then pos = Value.Length
                m_familyName.Text = "Steel"
                m_partName.Text = "Beams"
            End Set
        End Property
        Private Sub PlaceStructural_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '        Call ReadFamily()
            '        Call ReadPart(MainForm.cbEnvelopePart, MainForm.cbEnvelopeFamily.Text)

        End Sub

        Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

        End Sub

        Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

        End Sub
        Friend WithEvents Button2 As System.Windows.Forms.Button

    Private Sub OnClick_SectionSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick

        Dim cstrSectionName(38) As Byte
        Dim result As Integer
        result = tfsecmgr_openSectionPicker(cstrSectionName)

        If (result = 1) Then
            Dim utf As New System.Text.UTF7Encoding()
            Dim SectionName As String = RTrim(utf.GetString(cstrSectionName))
            m_sectionName.Text = SectionName
        End If

    End Sub
    End Class

End Namespace